home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
vis082s.arc
/
OVRCALL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-17
|
412b
|
23 lines
Unit OvrCall;
{$O+,F+}
Interface
Uses
Overlay,configrt;
Implementation
Begin
readconfig;
OvrInit('VISION.OVR');
if configset.usems then ovrinitems;
if (ovrresult<>ovrok) and configset.usems then begin
writeln('Not enough EMS to put Overlay into memory!');
halt(4);
end;
If OvrResult <> OvrOK then
Begin
WriteLn('Overlay file not found.');
Halt(4);
End;
End.